UUU 


UUU UUU 
UUUUUUUUUUUUUUU 
UYUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
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**F LE**1D**RMSTESTS 


nw AAWIAAWA 
nw ANAW 
nun nw AW 
mn AW nw 
mun nw AWN 
nw AWN AW 
nw nw naw 
~nw AWN mw 
NINA nw 
AAA nw 
os 

= 

co 

—— 


ee ee ee ee ee et et oto 
ee ed ee ee ee ee eet eto 
—— 


—— 
os 
— 
nn NNN 
vn NNW 
nn nn nn 
nw nn nn 
ow nw nn 
“nw nw nn 
mn nn aman 
mn nn 7) 
YNNwW nn 
NNNM nn 
usu udus 
usu ta Ud 
wu ww ww 
wu wu wu 
wu ww wu 
wu uu usw 
ww wu uw 


dd ds ss a 
Ud ds as Gs a as a ta 


ee ee ee ee ee 
a ed ee ee ee ro 


os 
= 
a 
nw NNN 
mn NNN 
nw nw nn 
nn nn ann 
nw nw nn 
nw nw Wn 
nw "nw nw 
nn nw nw 
YNNNM nn 
YNnNNM nn 


nn MWwnMnn 
nn nMnnn 
“mn mm nn 
nn wn nn 
“wn “wn “wn 
mw nn nn 
nw nn nn 
nn mn nw 
MMwn nn 
MMWNn nn 
oe Cn kemd 
—— ones 


LLLLLLLLLL 
LLLLLLLLLL 
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sey eal ie saan A "SSEp=1986 OL:3t:8? EOETPUSRCSamsrestscman:1 = "9% c], 


SBEGIN RMSTESTS.009,__RMSTEST,<TEST RECORD LOCKING>,<GBL,LONG> 


DONAW 
ee 


-ENABL DBG 


SRMSDEF 
~NLIST MEB 


macros: 


Sasssssssssssses 


uF -MACRO BUFF NAM,SIZE 


z 


-BLKB_ SIZE 
NAM’ BSZ==SIZE 
-ENDM = BUFF 


OOCCCCCOOOCOOOCOOOOOOOOOO 
SOoOoooooooooooooooooooooooooooo 


OoOoooooooooooSo 


SQoooooooooooooooooooooooooooooo 


MACRO TYPE STRING, ?L 
RE <STRING> 


S 
C VERBOSITY L 
MOVL  #$$.TMPX, CMDORAB+RABSL_RBF 
#$$.TMPX1, CMDORAB+RABSO_RSZ 
$PUT RAB=CMDORAB, ERR=REPORT ERROR 


- 


-ENDM TYPE 


«MACRO WTTYPE STRING 
SWAIT RAB=CMDORAB 
TYPE <STRING> 
-ENDM = WTTYPE 


-MACRO STORE STRING,PRE 


» SAVE 
-PSECT __SRMSNAM 
$$. TMPX=. 


PRE 
ASCII X%STRING% 
5. THPX1=. 8 . TMPX 


[ENDM © STORE 


; store any carriage control info 


——"DOODODOO0O00O0 0000 OO O00 00090909 0909 09 0909 SINISE NINO OOOO 
DOONAN WP © OO NA UE WN CO ODNOUS WN O OONOULS WN oO 
=z 
o 
<= 
<£ 


A 
: 
: 
: 
: 


ee ed ab ed ed 2d Wo dD 


— 


K 10 
su et toro Onoeng. MCREEIBEL SUSY HEOMEAMAR ASP Mo 


gFncRo esete Ts TSTNAM 


font 


1 
1 
118 §T0 
11 MOVL it WAPX BEG_DESCR+4 =; addr 
118 MOVL sunpxt BEG DESCR > len 
1 BSBW BEG 
120 -ENDM G ut 
1 “MACRO FINISH TSTNAM 
1 STORE < STNA NAM> 
1 MOVL #$$.TMPX.FIN DES cRe 4  ; addr 
1 MOVL #8. THPX PX1,FIR_DE : len 
1 BSBW  FINPUT 
1 : -ENDM = FINISH 
1 “MACRO FIELD FLDNAM 
1 : STORE <ELDNAM> 
1 MOVL &#S$.TMPX,FLD_DESCR+4 =; addr 
0 130 MOVL #$$.TMPX1,FLB_DESCR > len 
131 BSBW FLDPUT 
00 1 : .ENOM = FIELD 
0 1 “MACRO MBPT, ?L 
134 BLBC VERBOSITY.L 
5 BPT 
139 
139 


Cooooooo 
Ssssssss 


ooo 
ooo 


ooo 


se 


TEST RECORD LOCKING 


000 


00000000 


34 


D 
26 


i 


"PS 19be Gasst sss LURTPrSRCSANG rests man: 1 


RMSTEST,GBL,LONG 
CONG 


Pent 


bet Ot. pur. UPD>, DNM=<TSTS$DISK:.FIL; 1>, shr=mse,nam=namb Lk 
rh ALY UBF = CCKBUF ,US2=LCKBSZ,RBF =LCKBUF ,- 


CK2BUF ,USZ=LCKBSZ,- 
te i Uae ORSPeULK KBF=KEY 


Kee 


papa + a gt + 


a2 
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RMSTESTS TEST RECORD LOCKING ; 16-SEP-1984 01:48:40 VAX/VMS M 4-00 : 
vou Breer abe baisties FORCHMS Bgere yOreOO ., «Page fg, 


: RMTSTEST 
KING TESTS> 
CK_FAB,ERR=REPORT_ERROR 


NNECT RAB=RAB1 , ERR=REPORT_ERROR 
CONNECT RAB=RAB2,,ERR=REPORT_ERROR 


B 
MOVAL RAB1,R7 3 7 will be addr of rab1 
MOVAL RAB2,R8 ; 78 will be addr of rab2 


force lots of collisions 

Ist stream 1 does a get (seq., so 1st record), locking it 

the 2nd stream asks for ie same record, but fails 

the st stream releases and the 2nd stream takes it 

us ng manual locking the 2nd stream gets the 2nd record (locking 2 records) 
the ist stream asks for the 2nd record, finding it locked 

until the 2nd stream frees both records 

at which time the 1st stream takes the 2nd record 


Pe Se Ge Ge Ge Ge Ge Ge Ge Ge 


NNN NN NIOAOAOAOAO 


AAO 
OONA NEW SO OD NA UNE WIN 0 OD NIA UNE WI 9 O OO NOAM E WIN OOO NOAM LS WI O OONO 
=z 
o 
< 
> 
e 


$GET $a0-8* .SEpREPnET lanes ; get ist rec., locking it 
3; this should fail 


FD27" 30 
RAB=R8 
CMPL RO, #RMS$_RLK 


vw 
on 
“wT 
ogo 
oc 
naa 7 

so vo 9 
QO WN S 
"Tw ~~ 

° = = 
[TOW Ww Ww 
mmo Oo oO 

WAPOPOPOIPIPOPIAIPIPOPIPIPIPOPIPIPOPOPIPUIPIPIPUPIPUPOPUNIPD 


COOQOMMMID GOOMOOOOOOOOOOOWDW YS FP COMWCo co 


O10 OVO NNN NNN & OO UNO" 


$GET 
000182AA 8F 50 D1 
0 13 BEQL «=O 
FIELD <RMS RETURNED STATUS CODE> 
5A FD90 CF : 
CEB: SBW  REPORT_ERR 
FCF5" 30 BSBW =SseERRR 
OK_LCK: 
SRELEASE RAB=R7,ERR=REPORT_ERROR; release it 
FCE3’ 30 BSBW SER 
$GET § RAB=R8,ERR=REPORT_ERROR ; now get it 
FCD1" 30 BSBwW 
$SGET | RAB=R8,ERR=REPORT_ERROR ; and another 
FCBF' 30 BSBW =—seERRR 


RAB=R7 3; this should fail 
000182AA 8F 38 CMPL no Genes ALS 


OOOO INIA AUIS EWP SS OS 


D1 
2 13 BEQL 
FIELD <RA aa STATUS CODE> 
5A FCE4 CF MOVAL RAB1,R10 
FC90° SBW  REPORT_ERR 
FC8D° BSBW ERR 
OK_LCK1: 
SFREE RAB=R8,ERR=REPORT_ERROR ; free both records 
FC7B* 30 SBW RR ‘ 
GET RAB=R7,ERR=REPORT_ERROR ' 
FC69° 3 BSBW ERR ; should get it hts time 
02 38 “ ot tat RABSL_BKT(R7) ,#2 3; should have been 2nd 


FIELD <BKT IN RAB (RECORD NUMBER)> 
BKT_OK: 


SOOOSOCCOOSOOOOCOOOCOOOCOOSCOOCOCCCSOSOOOCOOOOOOOOOOO 


ANA NININN AAW WINN WIWNAAWWWW WWW 


ow 
mo 


a2 


TEST RECORD LOCKING ; 16-SEP-1984 01:48:40 VAX/VMS Macro v04-00 ° 
Breee robe baishiso FORCUMS Mgcre YOtcOO 8, = Page 3, 


test 2 

one orrees now, using yes bogs tag gets a record 
when t tries to get it again, it succeeds with the code ol coady locked 
shifting to automatic, it gets the and record (actually locking hem both) 

so when it tries to ges the ist again, it succeeds w/ the code, already locked 
but this released the 2nd record, so when it tries to release the 2nd, it fails 


$GET RAB=R8,ERR=REPORT_ERROR 
RR et a record 


MOVB #RABSC_KEY,RABSB RAC(R8): Featrel which rec. 
MOVL RABSL_BKT(RB),K : move rec. # into key 
$GET § RAB=RB,ERR=REPORT_ERROR : get same one 


CMPL RO, #RMS$_OK_ALK ; funny success 


FIELD <RETURNED SUCCESS CODE> 
OK_ALK: BICL #RABSM_ULK,RABSL_ROP(R8); shift to automatic 
I KEY 3 get next record 
can FO ERROREPORT ERROR 


OT 90 


1E A& 
FE9A CF «6938 AB ODO 


ree :_ 
00018039 8F 72 D 


04 AB 00040000 BF CA 
FESE CF 


FUN 9 OD NOAU EWN 9 ODNOAUE WN O OO NAU EW OOONOU SU 
ad 
a 
m 
a4 


SVS EBS ES EE EE 4S & AAAI NAIOP DINININPINININD 2 2 OO SS 


4 
8 
E 
0 
Q 
E 
0406 
040A 
FBE4* 30 0419 BSBW : get 2nd rec. 
Bere ;_maintaining hold on Ist 
10 A710 AB = 7DsOO4IC MOVQ = RABSW_RFA(R8),RABSW_RFA(R7); save rfa for 
Be 1 ; release of 2nd 
FE43 CF D7 0421 DECL KEY 3; get Ist again, making sure it 
0425 ; was still locked 
0425, $GET RAB=R8,ERR=REPORT_ERROR ; releasing 2nd one 
FBC9’ 30 0434 2 BSBw = ERR 
00018039 8F 50 01 Be 7 CMPL RO,#RMS$_OK_ALK 
15 13 043 BEQL LK1 
Bee = mat FIELD <RETURNED SUCCESS CODE> 
10 AB 8610 A?) = 7D 0485 c ova RABSW_RFA(R7) ,RABSW_RFA(R8); restore rfa for release 
45A SRELEAS RAB=R8 3; release 2nd one 
000181A0 8F 50 D1 0463 PL RO, #RMS$_RNL ; 70 = rec. not locked? 
20 13 046A BEQL K_R 
46C FIELD <RAS 9) aut ERROR CODE> 
5A FCOF CF f 481 MOVAL RAB2,R10 
FB73' 4 2 BSBW = REPORT_ERR ; report error 
FB74" 30 04 : BSBW ERR 
48C 


Oo 
x 
4 
P=] 
= 
- 
@ 
a 
“” 
rc 


04 AS 00040000 8F C8 #RABSM_ULK ,RABSL_ROP(R8); back to manual 
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RMSTESTS TEST RECORD LOCKING ; 16-SEP-1984 01:48: AX/VMS My cro V04-00 Page 
FO. 80 , g-3e sat 7 8} 34 +49 UETP.SRC SRMSTESTS.MAR: 1 . (3) 
494 
i x i test 3 
494 : ; Ww th manual locking, get Ist record, locking it 
494 ° ; second user can't get 
494 3; update it success [Ul ty. which will not unlock it 
toe ° ; so when updating it again, it will succeed Socause it's still manually locked 
494 4° 
FOCF CF O01 DO 0494 ge MOVL #1,KEY : Ist record 
499 66 $GET  RAB=R8,ERR=REPORT_ERROR ; get w/ manual Locking 
ie? 3 4A8 ? BSBW 
1E A7 1 4AB 5 MOVB SRAOSS REY -RABSR_RAC CRT) 
4AF 8 $GET = 3; try to get same record 
000182AA 8F 38 pt rj oy Hiyay RO, #RMS$_RLK 
ace} ie FIELD <RMS STATUS CODE> 
5A FB76 CF f 406 7 MOVAL 
FB22' 0408 74 SBW REPORT _ERR 
FBIF' 30 rh f mk oes BSBW ERR 
04 AB 00040000 BF CA bce} 6 oie CL #RABSM_ULK,RABSL_ROP(R8); switch to automatic 
Fe05* 30 Bees 4 pyepate RAB=RE, TERR=REPORT ERROR 
04FB 80 SFIND RAB=R8,ERR=REPORT_ERROR ; get a current record 
FAF3" 30 OQ50A 1 BSBW ERR 3; this should not fail 
PAEI* 30 p200 B3 eee RAB=R8,ERR=REPORT_ERROR ; this should succeed 
Base 4 $RELEASE RAB=R8,ERR=REPORT_ERROR; this should not fail 
FACF" 30 gf 5 ERR 
0531 86 STS_OK: 


re ae ee ag eee eine pees eee ote eT ag a ee ee) 2 MO Taek eee ka htt be ae etiece Ceara ee teak eae eT Me ee eee 


C 11 
RMSTESTS TEST RECORD LOCKING ; 16-SEP=- 
vOL-000 9-365 


19be Barstisy ORTH eget ets Oaks, | PAM at 


1 
1 5 H 
1 ; test 4 
} ; asynchronously do 2 gets on records in the same bucket 
1 293° 
4 A7 1 i) d 94 MOVL #RABSM_ASY ,RABSL_ROP(R7) 
4 AB 1 D 95 MOVL BRAB SR. ASY, *RABSL “ROP (R8) 
FD2A CF 1 i) 2 9 38 MOVL Key 
—E 29 $GET RABSR /ERR=REPORT_ERROR ; gets Ist record 
FD17 CF D6 4D 38 NCL 
5 9 GET MARRS -ERRREPORT ERROR i gets 2nd record 
6 0 SWAIT RAB=R 
2 1 SWAIT RAB=R8 : wait them ou 
04 AB «4 25 § CLRL RABSL_ROP(R8) 3 rop in r7 mii be set soon 
57 4; 
; that’s it for test 
57 8 hat's it f 4 
575 86 : 
0575 0 


—_—_—_—RnknRk en e cc 


TEST RECORD LOCKING ; 197360= 138% ae +39 AX/VM 


04 A? 00100000 
FCE6 CF 


B¢ AB 001000 


O> > OOWROO VN 


bak 8 a ea eal ead al ahah rah al ah al al ab ab ab ab ah ab al alah al al al alain! 


PEO MMM FSS HSL SLL ENING H MOON MMOVCVOCVTVTVTITIOO 


SSS SSSSS SSS Ss ssesesses 


PLE TPN WW SAAN ROSMO MOONS MOSSOSOD UMW Mone WUT VIVO 


DARPA AAaAPA AA AAA AAA A AO 


D1 
04-00 p 
st5.mar:1 28 (48) 


S Macro V 
-SEP-1 UETP. SRCIRMSTE 


test 5 

do threee tests, gece nee the same record with each rab 

with no toes tae suppose ly. 

; Ist, set the ntk bit. then the rlk bit. and then let fac=get 
all these should cause no locking 


MOVL aS apelin arcitinade 
; try to get the record twice 


GET_Two 
MOVL #RABSM_RLK,RABSL_ROP(R7) 
(R8); can't try to lock record 


MOVL #RABSM_NLK, RABSL_ROP 


BSBW GET TWO 
CMPL RABSL S1S(R6) RASS _OK_ALK 
BEQL RLK_OR 
FIELD <RMS SUCCESS CODE> 
RLK_OK2: 
MOVL #RABSM_LOC,RABSL_ROP(R7); Locate mode 
MOVL #RABSM_LOC,,RABSL_ROP(R8); diito 
MOVB #FABSM_GET,FABSB_FAC+LOCK_FAB; only get access 


; have to reopen file w/ fac=get 


$DISCONNECT RAB=R7, ERR=REPORT_ERROR 
$DISCONNECT RAB=R8, ERR=REPORT_ERROR 
SCLOSE FAB=LOCK_ FAB, ERR=REPORT ERROR 
SOPEN  FAB=LOCK_FAB,ERR=REPORT_ERROR 
SCONNECT RAB=R7, ERR=REPORT_ERROR 
SCONNECT RAB=R8, ERR=REPORT_ERROR 
BSBW ERR 

DECL KEY 

BSBW = GET_TWO 


; clean up 
MOVB  $ #RABSC_SEQ,RABSB_RAC(R7) 
MOVB $#RABSC~SEQ,RABSB-RAC (RB) 
CLRL RABSL ROP (R7) 
MOVL  § #RABSA_ULK,RABSL_ROP(R8) 
BISL § #FABSM~PUT,FABSB_FAC+LOCK_FAB 
BISL $#FABSM-UPD,FABSB-FAC+LOCK~FAB 


close up 


DEA O ODD NAMES WN SO OO NAME WIN OS OO NAME WIP OC OO NAMES WR 0 OONOUS WOW” 


PDA DQRDED GAs SB ES BS EEE EE AANA IAIN WIAIIPIPIPIPOPINPINPINII Ot OO 
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RMSTESTS TEST RECORD LOCKING ; 16=SEP=1 AX/VMS 04-00 P 1 mt 
v04 Br SEp=1986 04 $f 39 Ube tp esee CORAS TESTS. MAR: 1 age ie) vl 


: 6 GET_TwO: 
8 subroutine to get the same record w/ two rabs 
re ; and then compare the results 


RAB=R7, ERR=REPORT_ERROR 


05 


$GET 
F93C" 30 ¢ 4 g5ey 
x 5 GET RAB=R8,ERR=REPORT_ERROR 
F92A* 30 D § BSBW 
22 AB 22 A? B D6 CMPW RABSW_RSZ(R7) ,RABSW_RSZ(RB) 
15 dB 3 BEQL RSZ_OR 
op — FIELD <RSZ> 
28 88 28 B7 22 av 7 ef : ri ceees RABSW_RSZ(R7) ,@RABSL_RBF (R7) , ARABSL_RBF (RB) 
ere .] ata <RETORDS> 
1 94 : RSB 
711 95 EN 


6 11 
BmSTE ETS ole TEST RECORD LOCKING ; 19-3 o-188t 01:58:60 a Se: Pesce ets e Page 11 


4 UETP.SRC ST5.MAR;1 (14) 
$$.PSECT_EP = RABSC_SEQ = D 
- TAB cs p 4 R D 4 RABSL-BKT = : D 
$$. TABEND = R D Q1 RABSL_CTX = D 
$$. TMP = 4 D RABSL_RBF = D 
$$.TMP1 = D RABSL_ROP = D 
$$. TMP2 = ABSL_STS = : Dd 
$$. TMPX = R D 04 RABSM_ASY = D 
$.TMPX1 = D RABSM_LOC = D 
SSRMSTEST = RABSM_NLK = 001 D 
SRMS_PBUGCHK 5 1 RABSM_RLK = 6 Dd 
SRMS_TBUGC = 8 RABSM_ULK = 4 D 
mS = 4 sy fe = 1 D 
BEGPU eeereere 8X 1 RABSW_RFA = 1 D 
BEG_DESCR eeereere = 1 RABSW_RSZ = 00 g D 
BKT_OK 00000382 R D 01 RABI 0 R D 01 
RR eeeeeere = § 6X 1 RAB2 0 94 R D O1 
FABSB_DNS = 00000035 D EC_OK 0000710 R D 01 
FABSB_FAC = 0000001 D REPORT_ERR eeareeee § 6X 1 
FABSC_BID = 3 D REPORT_ERROR eeeeeeee §=6X 1 
FABSC_BLN = D RLK_OK Q00004E1 R D 01 
FABSC_SEQ = 00000 D OK2 000 388 R D 01 
FABSC_VAR = 000000 D RMSS_OK_ALK = 000180 D 
FABSL_ALQ = 4 01 D RMS$_OK_RLK = Bat 3) D 
FABSL_DNA = 0000003 D S$_RLK = 000182AA D 
FABSL_FOP = 44 4 D RMS$_RNL = 000181A0 D 
FABSM_GET = 00000002 D RMTSTEST_5SA Boop eeS RGD 01 
FABSM_PUT = 00000001 D RSZ_OK 44 F2R D Q1 
F ABSM_UPD = 44445 D STS _OK 000531 R D 01 
FABSV_CHAN_MOD = 000 of D SYSSCLOSE eeneeeee GX 1 
FABSV_F ILE_MODE = 00000004 D SYSSCONNECT aaaeenee GX 1 
FABSV_GET = 00000001 D SYSSOISCONNECT eeneanee GX 1 
F ABSV_LNM_MODE = 444 0 D SYSSF IND eeannene GX 1 
FABSV_MSE = 00000004 D SYSSFREE eeeeeeee GX 1 
FABSV_PUT = 0000000 D SYSS$GET eaeneeee GX 1 
F ABSV_UPD = 9444444 D SYSSOPEN aeeneeee GX 1 
FABSW_ GBC = 0000004 D SYSSRELEASE eeeeeeee GX 1 
F INPUT eeeeeeee 8 §=6X 1 SYSSUPDATE eeaaeene GX 4 
FIN_DESCR eeeeeeee =X 1 SYSSWAIT eeeeeeee GX 1 
F T eeneerer YX 1 TSSTART 00000000 RGD 01 
FLD_DESCR eeeeeree §6X 1 
ET_TwO 0000 R D Q1 
KEY ; 68 R D 01 
LCK2BSZ > C8 GOD 
LCK2BUF 1A0 RGD 01 
LCKBSZ = C8 GD 
LCKBUF D8 RGD 01 
LOCK FAB 00 RGD 01 
Cx retrerer x 1 
OK_ALK 3 R D Q1 
OK_ALK1 R D Q1 
OK_LCK R D 0O1 
OK_LCK1 R D Q1 
OK _RNL R D 01 
RABS$B_RAC = D 
RABSC_BID = D 
RABSC_BLN = D 
RABSC_KEY = D 


H 11 
RMSTESTS TEST RECORD LOCKING ; 16-SEP-1984 01:48: AX/VMS Macro v04-00 Pa 12 
Psect synopsis $78 P=] 9b4 84:39:29 YOETP gre RMSTESTS.MAR;1 - (14) 


beeen acerca sansa} 


! Psect synopsis ! 


¢mene sn eeene ease nn + 


PSECT name Allocation PSECT No. Attributes 
- ABS, 090 ( 5} 0 ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSTEST ( 1809.) 01 ¢ -) NOPIC USR CON REL  GBL NOSH XE RD WRT NOVEC LONG 
Skass 30 ( Q-? ; ( ¢°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SRMSNAM y -y We ( -) NOPIC USR CON REL LCL NOSHR' EX RD WRT NOVEC BYTE 
__SRASNAM 0 CE ¢ 206.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR EX RD WRT NOVEC BYTE 
memes em ereeescooe ee nonnoae > 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.09 0:00:00.55 
Command processing 1 00: 3: 9-94 :00: “§ 
Pass 1 268 0:00:09.14 :00:21. 
pyabes table sort at 3: 3: 36 8: 3 }-1? 
Symbol table output 1 0: 0: “86 0: 0:00:31 
Psect synopsis output :00: Os 0:00:00. 
Cross-reference output 0: B:93°9 0: 3399-9 
Assembler run totals 541 00:00:12.78 :00:31.1 


{be york ing set Limit was 1350 pages. 

49361 bytes_(97 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 573 non-local and 0 local symbols. 
source Lines were read in Pass 1, producing 49 object records in Pass 2. 

40 pages of virtual memory were used to define 34 macros. 


$eowewewoecoeeeccececccece 


o=+ 
! Macro Library statistics : 


dere weer meee eo ew ee se eee ere eee e 


Macro Library name Macros defined 

~$333$0UA 8:CSYS.OBJJLIB.MLB;1 0 
55S$DUA28: (SYSLIBISTARLET.MLB;2 1 

TOTALS (all Libraries) 1 


801 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSTESTS/OBJ=OBJ$:RMSTESTS MSRC$:RMSTESTS/UPDATE=(ENHS:RMSTESTS) +EXECMLS/LIB 
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